From 027a2dc3fa8c88b60fe9e9c8b24fba03a9f8dbe4 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 6 Jan 2009 07:52:01 +0000 Subject: [PATCH] * net/tramp-smb.el (tramp-smb-handle-copy-file) (tramp-smb-handle-rename-file): Delete temporary file in case of quit. --- lisp/net/tramp-smb.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index b9dc8731215..41f4c25318a 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -218,8 +218,9 @@ PRESERVE-UID-GID is completely ignored." ;; Remote filename. (condition-case err (rename-file tmpfile newname ok-if-already-exists) - (error (delete-file tmpfile) - (signal (car err) (cdr err)))) + ((error quit) + (delete-file tmpfile) + (signal (car err) (cdr err)))) ;; Remote newname. (when (file-directory-p newname) @@ -554,8 +555,9 @@ PRESERVE-UID-GID is completely ignored." ;; Remote filename. (condition-case err (rename-file tmpfile newname ok-if-already-exists) - (error (delete-file tmpfile) - (signal (car err) (cdr err)))) + ((error quit) + (delete-file tmpfile) + (signal (car err) (cdr err)))) ;; Remote newname. (when (file-directory-p newname) -- 2.30.2